home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 November: Tool Chest / Dev.CD Nov 98 TC.toast / Sample Code / Snippets / Networking / ATP Demo 1.0 / PreCompletion.a < prev    next >
Encoding:
Text File  |  1994-10-28  |  544 b   |  26 lines  |  [TEXT/MPS ]
  1.  
  2.     CASE    ON
  3.         
  4. PreCompletion    PROC    EXPORT
  5.  
  6.     LINK    A6,#0                ; Link for the debugger.
  7.     MOVEM.L    A5,-(SP)            ; Preserve A5 register.
  8.     
  9.     MOVE.L    A0, -(SP)            ; Pass PB pointer as the parameter.
  10.     MOVE.L    -8(A0),A5            ; Set A5 to passed value (ourA5).
  11.     MOVE.L    -4(A0),A0            ; A0 = real completion routine address.
  12.     JSR        (A0)                ; Transfer control to ourCompletion.
  13.     
  14.     MOVEM.L    (SP)+,A5            ; Restore A5 register.
  15.     UNLK    A6                    ; Unlink.
  16.     RTS                            ; Return.
  17.     
  18.     STRING    ASIS                ; The debugger string.
  19.     DC.B    $8D,'PreCompletion'
  20.     DC.W    $0000
  21.     STRING    PASCAL
  22.     
  23.     ENDP
  24.  
  25.     END
  26.